Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / kenoga1a / form1.frm (.txt) next >

Wrap

Visual Basic Form | 1999-06-27 | 48.0 KB | 1,579 lines

VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX" Begin VB.Form Form1 Caption = "KENO" ClientHeight = 6585 ClientLeft = 45 ClientTop = 270 ClientWidth = 10710 Icon = "Form1.frx":0000 LinkTopic = "Form1" ScaleHeight = 6585 ScaleWidth = 10710 StartUpPosition = 3 'Windows Default Begin MSComDlg.CommonDialog CommonDialog1 Left = 5130 Top = 3060 _ExtentX = 847 _ExtentY = 847 _Version = 327680 End Begin VB.Timer Timer5 Interval = 60000 Left = 7830 Top = 5640 End Begin VB.Timer Timer4 Interval = 60000 Left = 7830 Top = 5070 End Begin VB.Timer Timer3 Interval = 60000 Left = 7830 Top = 4530 End Begin VB.Timer Timer2 Interval = 60000 Left = 7830 Top = 3930 End Begin VB.CommandButton Command4 Caption = "Go to card." Height = 465 Left = 7890 TabIndex = 86 Top = 2640 Width = 2655 End Begin VB.CommandButton Command3 Caption = "Print Sheets" Height = 465 Left = 7890 TabIndex = 85 Top = 2040 Width = 2655 End Begin VB.CommandButton Command2 Caption = "Stop" Enabled = 0 'False Height = 525 Left = 9270 TabIndex = 84 Top = 1410 Width = 1245 End Begin VB.CommandButton Command1 Caption = "Start" Height = 525 Left = 7890 TabIndex = 82 Top = 1410 Width = 1245 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 79 Left = 6825 TabIndex = 81 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 78 Left = 6075 TabIndex = 80 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 77 Left = 5325 TabIndex = 79 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 76 Left = 4575 TabIndex = 78 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 75 Left = 3825 TabIndex = 77 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 74 Left = 3075 TabIndex = 76 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 73 Left = 2325 TabIndex = 75 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 72 Left = 1575 TabIndex = 74 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 71 Left = 825 TabIndex = 73 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 70 Left = 60 TabIndex = 72 Top = 5700 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 69 Left = 6825 TabIndex = 71 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 68 Left = 6075 TabIndex = 70 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 67 Left = 5325 TabIndex = 69 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 66 Left = 4575 TabIndex = 68 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 65 Left = 3825 TabIndex = 67 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 64 Left = 3075 TabIndex = 66 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 63 Left = 2325 TabIndex = 65 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 62 Left = 1575 TabIndex = 64 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 61 Left = 825 TabIndex = 63 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 60 Left = 60 TabIndex = 62 Top = 4950 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 59 Left = 6825 TabIndex = 61 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 58 Left = 6075 TabIndex = 60 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 57 Left = 5325 TabIndex = 59 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 56 Left = 4575 TabIndex = 58 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 55 Left = 3825 TabIndex = 57 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 54 Left = 3075 TabIndex = 56 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 53 Left = 2325 TabIndex = 55 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 52 Left = 1575 TabIndex = 54 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 51 Left = 825 TabIndex = 53 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 50 Left = 60 TabIndex = 52 Top = 4200 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 49 Left = 6825 TabIndex = 51 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 48 Left = 6075 TabIndex = 50 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 47 Left = 5325 TabIndex = 49 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 46 Left = 4575 TabIndex = 48 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 45 Left = 3825 TabIndex = 47 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 44 Left = 3075 TabIndex = 46 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 43 Left = 2325 TabIndex = 45 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 42 Left = 1575 TabIndex = 44 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 41 Left = 825 TabIndex = 43 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 40 Left = 60 TabIndex = 42 Top = 3450 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 39 Left = 6825 TabIndex = 41 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 38 Left = 6075 TabIndex = 40 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 37 Left = 5325 TabIndex = 39 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 36 Left = 4575 TabIndex = 38 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 35 Left = 3825 TabIndex = 37 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 34 Left = 3075 TabIndex = 36 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 33 Left = 2325 TabIndex = 35 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 32 Left = 1575 TabIndex = 34 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 31 Left = 825 TabIndex = 33 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 30 Left = 60 TabIndex = 32 Top = 2400 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 29 Left = 6825 TabIndex = 31 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 28 Left = 6075 TabIndex = 30 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 27 Left = 5325 TabIndex = 29 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 26 Left = 4575 TabIndex = 28 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 25 Left = 3825 TabIndex = 27 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 24 Left = 3075 TabIndex = 26 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 23 Left = 2325 TabIndex = 25 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 22 Left = 1575 TabIndex = 24 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 21 Left = 825 TabIndex = 23 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 20 Left = 60 TabIndex = 22 Top = 1620 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 19 Left = 6840 TabIndex = 21 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 18 Left = 6075 TabIndex = 20 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 17 Left = 5325 TabIndex = 19 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 16 Left = 4575 TabIndex = 18 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 15 Left = 3825 TabIndex = 17 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 14 Left = 3075 TabIndex = 16 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 13 Left = 2325 TabIndex = 15 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 12 Left = 1575 TabIndex = 14 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 11 Left = 825 TabIndex = 13 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 10 Left = 60 TabIndex = 12 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 9 Left = 6810 TabIndex = 11 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 8 Left = 6060 TabIndex = 10 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 7 Left = 5310 TabIndex = 9 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 6 Left = 4560 TabIndex = 8 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 5 Left = 3810 TabIndex = 7 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 4 Left = 3060 TabIndex = 6 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 3 Left = 2310 TabIndex = 5 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 2 Left = 1560 TabIndex = 4 Top = 60 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 1 Left = 810 TabIndex = 3 Top = 60 Width = 735 End Begin VB.Timer Timer1 Enabled = 0 'False Interval = 60000 Left = 7830 Top = 3330 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Index = 0 Left = 48 TabIndex = 2 Top = 60 Width = 735 End Begin VB.Frame Frame2 Caption = "Status" BeginProperty Font Name = "Times New Roman" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1275 Left = 7860 TabIndex = 0 Top = 90 Width = 2685 Begin VB.Label Label3 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Next Game = " ForeColor = &H0000FFFF& Height = 255 Left = 90 TabIndex = 87 Top = 930 Width = 2505 End Begin VB.Label Label2 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Game = " ForeColor = &H0000FFFF& Height = 255 Left = 90 TabIndex = 83 Top = 630 Width = 2505 End Begin VB.Label Label1 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Drawing" ForeColor = &H0000FFFF& Height = 255 Left = 90 TabIndex = 1 Top = 285 Width = 2505 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim n As Integer Dim Game As Integer Function Rand(nMin As Integer, nMax As Integer) As Integer Static x As New Collection, i As Integer If x.Count = 0 Then For i = nMin To nMax x.Add i Next End If i = Int(Rnd * x.Count) + 1 Rand = x(i) x.Remove i End Function Private Sub Command1_Click() Timer1_Timer Label3.Caption = "Next Game in 5:00" Timer5.Enabled = True Command2.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Command2.Enabled = False Command1.Enabled = True End Sub Private Sub Command3_Click() On CommonDialog1.CancelError GoTo errhandler Form1.CommonDialog1.ShowPrinter Printer.Copies = CommonDialog1.Copies Form2.PrintForm Exit Sub errhandler: Exit Sub End Sub Private Sub Command4_Click() Form3.Show End Sub Private Sub Form_Load() Game = 0 Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Timer5.Enabled = False End Sub Private Sub Timer1_Timer() Label3.Caption = "Next Game in Now!" Game = Game + 1 Label2.Caption = "Game = " & Game For blah = 0 To 79 Text1(blah).Text = "" Next blah For i = 1 To 20 n = Rand(0, 79) Text1(n) = n + 1 Next i Timer5.Enabled = True Timer1.Enabled = False Label3.Caption = "Next Game in 5:00" End Sub Private Sub Timer2_Timer() Label3.Caption = "Next Game in Less than a 1:00" Timer1.Enabled = True Timer2.Enabled = False End Sub Private Sub Timer3_Timer() Label3.Caption = "Next Game in 2:00" Timer2.Enabled = True Timer3.Enabled = False End Sub Private Sub Timer4_Timer() Label3.Caption = "Next Game in 3:00" Timer3.Enabled = True Timer4.Enabled = False End Sub Private Sub Timer5_Timer() Label3.Caption = "Next Game in 4:00" Timer4.Enabled = True Timer5.Enabled = False End Sub